
(define (gbpiano _instr)
   
   ;load samples
   (for-each 
          (lambda (e) 
             (au:play:set-sample-data (instr:node-id _instr) (car e) (cdr e))) 
          (gbpiano:sampledata)))

(define gbpiano:sampleslist (list
(cons 024 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/024_C0KM56_M.wav")
(cons 031 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/031_G0KM56_M.wav")
(cons 035 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/035_B0KM56_M.wav")
(cons 038 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/038_D1KM56_M.wav")
(cons 042 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/042_F#1KM56_M.wav")
(cons 045 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/045_A1KM56_M.wav")
(cons 050 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/050_D2KM56_M.wav")
(cons 054 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/054_F#2KM56_M.wav")
(cons 058 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/058_A#2KM56_M.wav")
(cons 060 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/060_C3KM56_M.wav")
(cons 062 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/062_D3KM56_M.wav")
(cons 064 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/064_E3KM56_M.wav")
(cons 065 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/065_F3KM56_M.wav")
(cons 068 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/068_G#3KM56_M.wav")
(cons 070 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/070_A#3KM56_M.wav")
(cons 072 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/072_C4KM56_M.wav")
(cons 077 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/077_F4KM56_M.wav")
(cons 081 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/081_A4KM56_M.wav")
(cons 086 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/086_D5KM56_M.wav")
(cons 090 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/090_F#5KM56_M.wav")
(cons 095 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/095_B5KM56_M.wav")
(cons 099 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/099_D#6KM56_M.wav")
(cons 101 "/Library/Application Support/GarageBand/Instrument Library/Sampler/Sampler Files/Grand Piano/101_F6KM56_M.wav")))


;create list with loaded samples
(define (gbpiano:sampledata)
   (map (lambda (e) (cons (car e) (au:load-audio-data (cdr e)))) gbpiano:sampleslist))
                